ocr: IstContacts Properties fe D 1 . VPostChange Sub PostChange0 REM Force the list to highlight the name of the contact displayed by the Form. IF NOT IsNulll Value ) THEN DIM rec AS Object DIM ContactID AS Integer rec = crmcontact.Getrecordset () rNumRows = rec.GetRowCount () FOR i == 1 TO rNumRows cec.seCCUrROW i ) rContactID = CINTI rec.GetColvall CONTACTID" ) ) IF rContactID = CINTI Value ) THEN EXIT FOR NEXT i END IF
